

Namespace Results
    Public Class DefaultUsername
        Inherits MultilingualBase
        Implements IDnnSecurityResult


        Private _username As String

        Public Property Username() As String
            Get
                Return _username
            End Get
            Set (ByVal value As String)
                _username = value
            End Set
        End Property


        Public Sub New (ByVal username As String)
            Me.Username = username
        End Sub

        Public ReadOnly Property Description As String Implements IDnnSecurityResult.Description
            Get
                Return String.Format (GetTranslationFor (Me.GetType.Name & ".Description"), Username)
            End Get
        End Property

        Public ReadOnly Property SecurityRiskClassification As SecurityRiskClassification _
            Implements IDnnSecurityResult.SecurityRiskClassification
            Get
                Return SecurityRiskClassification.Middle
            End Get
        End Property

        Public ReadOnly Property DetailControl() As String Implements IDnnSecurityResult.DetailControl
            Get
                Return ""
            End Get
        End Property

        Public ReadOnly Property Title As String Implements IDnnSecurityResult.Title
            Get
                Return GetTranslationFor (Me.GetType.Name & ".Title")
            End Get
        End Property

        Private _detailControlParameter As String

        Public Property DetailControlParameter() As String Implements IDnnSecurityResult.DetailControlParameter
            Get
                Return _DetailControlParameter
            End Get
            Set (ByVal value As String)
                _DetailControlParameter = value
            End Set
        End Property

        Public Overloads Sub LoadRessourceFile (ByVal fileName As String) _
            Implements IDnnSecurityResult.LoadRessourceFile
            MyBase.LoadRessourceFile (fileName)
        End Sub
    End Class
End Namespace